home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / desert.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  5.7 KB  |  260 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(33)"DESERT  #2004"
  5. 140  COLOR 23,0,0
  6. 150  PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160  COLOR 7,0,0
  8. 170  PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180  PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190  PRINT A$
  11. 200  PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220  A$=INKEY$:IF A$="" THEN 220
  14. 230  CLS
  15. 240  KEY 1," DRINK "
  16. 250  KEY 2," MOD "
  17. 260  KEY 3," FAST "
  18. 270  KEY 4," STOP "
  19. 280  KEY 5," STATUS? "
  20. 290  KEY 6," HOPE "
  21. 300  KEY 7,""
  22. 310  KEY 8,""
  23. 320  KEY 9,""
  24. 330  KEY 10,""
  25. 340  REM  ***  DESERT PROGRAM ***
  26. 350  REM TRANSLATED BY IPCO 2/82
  27. 360  CLS
  28. 370  PRINT TAB(35)"DESERT"
  29. 380  PRINT TAB(35)"******"
  30. 390  PRINT
  31. 400  PRINT TAB(29)"IBM BASICA FOR THE PC"
  32. 410  PRINT
  33. 420  PRINT
  34. 430  Y$=STRING$(80,205)
  35. 440  PRINT Y$
  36. 450  PRINT
  37. 460  PRINT
  38. 470  PRINT
  39. 480  FOR DELAY=1 TO 1000
  40. 490  NEXT DELAY
  41. 500  PRINT
  42. 510  PRINT "ENTER YOUR LAST NAME.";
  43. 520  INPUT L$
  44. 530  CLS
  45. 540  PRINT "WOULD YOU LIKE INSTRUCTIONS (Y OR N)";
  46. 550  INPUT D$
  47. 560  IF D$="N" THEN 870
  48. 570  CLS
  49. 580  PRINT
  50. 590  PRINT
  51. 600  PRINT  "WELCOME  TO  DESERT.  THE  OBJECT  IS  TO TRAVEL 40 MILES ACROSS THE GREAT GOBI" :PRINT
  52. 610  PRINT "DESERT. A TRIBE OF KNOCKED KNEED PIGMIES WILL BE CHASING YOU.  YOU WILL BE ASKED"
  53. 620  PRINT "FOR COMMANDS EVERY SO OFTEN..."
  54. 630  PRINT
  55. 640  PRINT
  56. 650  PRINT "   C O M M A N D S :"
  57. 660  PRINT "   ==============="
  58. 670  PRINT
  59. 680  PRINT "   #1 DRINK FROM YOUR CANTEEN"
  60. 690  PRINT "   #2 AHEAD MODERATE SPEED"
  61. 700  PRINT "   #3 AHEAD FULL SPEED"
  62. 710  PRINT "   #4 STOP FOR THE NIGHT"
  63. 720  PRINT "   #5 STATUS CHECK"
  64. 730  PRINT "   #6 HOPE FOR HELP"
  65. 740  PRINT
  66. 750  PRINT
  67. 760  PRINT "PRESS ANY KEY TO CONTINUE"
  68. 770  A$=INKEY$:IF A$="" THEN 770
  69. 780  CLS
  70. 790  PRINT
  71. 800  PRINT "YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS.":PRINT
  72. 810  PRINT "YOUR MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASIS.":PRINT
  73. 820  PRINT "YOU GET A HALF A QUART IF FOUND BY HELP.":PRINT
  74. 830  PRINT "IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE.":PRINT
  75. 840  PRINT "BE WARY OF COMMAND #3 USE IT ONLY WHEN YOUR CAMEL IS FRESH AND RESTED.":PRINT
  76. 850  PRINT
  77. 860  PRINT
  78. 870  PRINT :PRINT "GOOD LUCK AND GOOD CAMELING!":PRINT :PRINT
  79. 880  PRINT "PRESS ANY KEY TO CONTINUE"
  80. 890  A$=INKEY$:IF A$="" THEN 890
  81. 900  PRINT:CLS
  82. 910  PRINT "YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS."
  83. 920  PRINT
  84. 930  GOSUB 2610
  85. 940  IF C>39 THEN 2030
  86. 950  Z=Z-1
  87. 960  IF Z=1 THEN 970 ELSE 1040
  88. 970  CLS
  89. 980  PRINT
  90. 990  PRINT "---------WARNING-----------GET A DRINK----------------"
  91. 1000  PRINT
  92. 1010  FOR DELAY=1 TO 2000
  93. 1020  NEXT DELAY
  94. 1030  CLS
  95. 1040  IF Z<0 THEN 2520
  96. 1050  P=P+1
  97. 1060  X2=INT(10*RND)+2.5
  98. 1070  IF Q>0 THEN 1690
  99. 1080  IF P<4 THEN 1210
  100. 1090  C1=C1+X2
  101. 1100  IF C1<C THEN 1200
  102. 1110  CLS
  103. 1120  PRINT "===================================="
  104. 1130  PRINT "THE PYGMIES HAVE CAPTURED":PRINT
  105. 1140  PRINT "YOU--CAMEL AND PEOPLE SOUP":PRINT
  106. 1150  PRINT "IS THEIR FAVORITE DISH!!!":PRINT
  107. 1160  FOR DELAY=1 TO 3500
  108. 1170  NEXT DELAY
  109. 1180  CLS
  110. 1190  GOTO 2440
  111. 1200  PRINT "THE PYGMIES ARE";C-C1;" MILES BEHIND YOU.":PRINT
  112. 1210  PRINT :PRINT "YOU HAVE TRAVELLED ";C;" MILES ALL TOGETHER.":PRINT
  113. 1220  PRINT :PRINT "WHAT IS YOUR COMMAND, CAMELEER ";L$;"";
  114. 1230  PRINT Y$
  115. 1240  INPUT Y
  116. 1250  ON Y GOTO 1540,1320,1390,1480,1510,1260
  117. 1260  T=INT(10*RND)
  118. 1270  IF T<>1 THEN 2020
  119. 1280  PRINT:PRINT "HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS."
  120. 1290  S=3
  121. 1300  Z=4
  122. 1310  GOTO 940
  123. 1320  F=F+1
  124. 1330  IF F=8 THEN 2000
  125. 1340  GOSUB 1590
  126. 1350  X1=INT(10*RND)
  127. 1360  C=C+X1
  128. 1370  PRINT:PRINT "YOUR CAMEL LIKES THIS PLACE."
  129. 1380  GOTO 940
  130. 1390  F=F+3
  131. 1400  IF F>7 THEN 2000
  132. 1410  GOSUB 1590
  133. 1420  X1=2*INT(10*RND)
  134. 1430  C=C+X1
  135. 1440  PRINT
  136. 1450  PRINT:PRINT  "YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."
  137. 1460  PRINT
  138. 1470  GOTO 940
  139. 1480  PRINT:PRINT "YOUR CAMEL THANKS YOU!"
  140. 1490  F=0
  141. 1500  GOTO 950
  142. 1510  PRINT:PRINT "YOUR CAMEL HAS";7-F;"GOOD DAYS LEFT."
  143. 1520  PRINT :PRINT "YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN "
  144. 1530  PRINT :PRINT "YOU CAN GO ";Z;" COMMANDS WITHOUT DRINKING."
  145. 1540  S=S-1
  146. 1550  IF S<0 THEN 2020
  147. 1560  PRINT :PRINT "BETTER WATCH FOR AN OASIS !"
  148. 1570  Z=4
  149. 1580  GOTO 1220
  150. 1590  A=INT(100*RND)
  151. 1600  IF A>5 THEN 1940
  152. 1610  PRINT "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU."
  153. 1620  PRINT :PRINT "LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR RANSOME "
  154. 1630  PRINT :PRINT "DEMANDS....BUT....WATCH OUT FOR THE PYGMIES!!!!"
  155. 1640  PRINT
  156. 1650  PRINT "YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"
  157. 1660  KEY 7," ESCAPE"
  158. 1670  PRINT
  159. 1680  KEY 8," WAIT "
  160. 1690  PRINT " #7 ATTEMPT TO ESCAPE"
  161. 1700  PRINT " #8 WAIT FOR PAYMENT"
  162. 1710  PRINT
  163. 1720  PRINT "YOUR SUB-COMMAND ";
  164. 1730  INPUT X
  165. 1740  IF X=8 THEN 1820
  166. 1750  X1=INT(10*RND)
  167. 1760  IF X1<5 THEN 1800
  168. 1770  PRINT :PRINT "CONGRATULATIONS, YOU ESCAPED SUCCESSFULLY !!!!!"
  169. 1780  Q=0
  170. 1790  GOTO 940
  171. 1800  PRINT :PRINT "YOU ARE MORTALLY WOUNDED BY A PIG STABBER WHILE ESCAPING!!!!"
  172. 1810  GOTO 2260
  173. 1820  X1=INT(100*RND)
  174. 1830  REM
  175. 1840  IF X1>24 THEN 1900
  176. 1850  PRINT :PRINT "YOUR RANSOME HAS BEEN PAID AND YOU ARE FREE TO GO."
  177. 1860  FOR DELAY=1 TO 4000
  178. 1870  NEXT DELAY
  179. 1880  Q=0
  180. 1890  GOTO 940
  181. 1900  PRINT "THE LOCAL SULTAN IS COLLECTING... JUST WAIT..."
  182. 1910  FOR DELAY=1 TO 4000
  183. 1920  NEXT DELAY
  184. 1930  GOTO 940
  185. 1940  A=INT(10*RND)
  186. 1950  IF A>2 THEN 2100
  187. 1960  PRINT :PRINT "YOU HAVE ARRIVED AT AN OASIS, YOUR CAMEL IS FILLING YOUR CANTEEN AND EATING FIGS"
  188. 1970  Z=4
  189. 1980  S=6
  190. 1990  RETURN
  191. 2000  PRINT :PRINT "YOU DIRTY RAPSCALLION !!!"
  192. 2010  PRINT :PRINT "YOU RAN YOUR POOR CAMEL TO DEATH !!!!!"
  193. 2020  GOTO 2260
  194. 2030  CLS
  195. 2040  PRINT Y$
  196. 2050  X$=STRING$(80,2)
  197. 2060  PRINT X$
  198. 2070  PRINT "YOU WIN!  A PARTY IS BEING GIVEN IN YOUR HONOR........."
  199. 2080  PRINT :PRINT "...THE PYGMIES ARE PLANNING TO ATTEND......."
  200. 2090  GOTO 2440
  201. 2100  X1=INT(100*RND)
  202. 2110  IF X1>5 THEN 2210
  203. 2120  PRINT :PRINT "YOU HAVE BEEN CAUGHT IN A SANDSTORM...... GOOD LUCK !!!"
  204. 2130  X5=INT(10*RND)
  205. 2140  X6=INT(10*RND)
  206. 2150  IF X6<5 THEN 2180
  207. 2160  C=C+X5
  208. 2170  GOTO 2190
  209. 2180  C=C-X5
  210. 2190  PRINT :PRINT "YOUR NEW POSITION IS ";C;" MILES SO FAR!"
  211. 2200  RETURN
  212. 2210  X1=INT(100*RND)
  213. 2220  IF X1>5 THEN 1250
  214. 2230  C1=C1+1
  215. 2240  PRINT :PRINT "YOUR CAMEL HAS HURT HIS HUMP LUCKILY THE PYGMIES WERE FOOTWEARY !!!!"
  216. 2250  RETURN
  217. 2260  U=INT(10*RND)
  218. 2270  PRINT :PRINT "YOU DIED IN THE DESERT."
  219. 2280  FOR DELAY=1 TO 4000
  220. 2290  NEXT DELAY
  221. 2300  PRINT
  222. 2310  IF U>1 THEN 2340
  223. 2320  PRINT "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL !!!"
  224. 2330  GOTO 2440
  225. 2340  IF U>3 THEN 2370
  226. 2350  PRINT :PRINT "YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS !!!!"
  227. 2360  GOTO 2440
  228. 2370  IF U>5 THEN 2400
  229. 2380  PRINT :PRINT "THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE !!!!"
  230. 2390  GOTO 2440
  231. 2400  IF U>7 THEN 2430
  232. 2410  PRINT :PRINT "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT!!!!"
  233. 2420  GOTO 2440
  234. 2430  PRINT :PRINT "TURKEYS SHOULD FLY, NOT RIDE CAMELS !!!"
  235. 2440  PRINT
  236. 2450  FOR DELAY=1 TO 4000
  237. 2460  NEXT DELAY
  238. 2470  PRINT
  239. 2480  PRINT "WANT A NEW CAMEL AND A NEW GAME (Y OR N)";
  240. 2490  INPUT D$
  241. 2500  IF D$="Y" THEN 850
  242. 2510  GOTO 2540
  243. 2520  PRINT :PRINT "YOU RAN OUT OF WATER........SORRY CHUM!!!!!"
  244. 2530  GOTO 2260
  245. 2540  CLS
  246. 2550  PRINT Y$
  247. 2560  PRINT X$
  248. 2570  PRINT TAB(37)"CHICKEN"
  249. 2580  PRINT X$
  250. 2590  PRINT Y$
  251. 2600  END
  252. 2610  Z=4
  253. 2620  S=6
  254. 2630  C=0
  255. 2640  C1=0
  256. 2650  Q=0
  257. 2660  F=0
  258. 2670  P=0
  259. 2680  RETURN
  260.